home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Utilities / KeyReq / Demo / Source / Requester.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-12-05  |  1.1 KB  |  58 lines
  1. program Requester;
  2.  
  3. uses Exec,AmigaDOS,Intuition;
  4.  
  5. const
  6.     ReqTitle    : string[30] = 'Requester test'#0;
  7.     ReqBody        : string[60] = 'In how many years do you think'#10'Bill G. will be bankrupt?'#0;
  8.     ReqGadgets    : string[40] = '1|2|3|4|5|6'#0;
  9.  
  10. var
  11.     es        : tEasyStruct;
  12.     
  13. procedure Cleanup(mes: string);
  14. var
  15.     rc    : long;
  16. begin
  17.     rc:=RETURN_OK;
  18.     if mes<>'' then
  19.     begin
  20.         Writeln('AsyncRequester :',mes);
  21.         rc:=RETURN_WARN;
  22.     end;
  23.     
  24.     if IntuitionBase<>NIL then CloseLibrary(pLibrary(IntuitionBase));
  25.     halt(rc);
  26. end;
  27.  
  28. procedure OpenLibs;
  29. begin
  30.     IntuitionBase:=pIntuitionBase(OpenLibrary('intuition.library',36));
  31.     if IntuitionBase=NIL then Cleanup('Can''t open intuition.library V36!');
  32. end;
  33.  
  34. procedure DoRequester;
  35. var
  36.     res    : long;
  37. begin
  38.     es.es_StructSize:=sizeof(tEasyStruct);
  39.     es.es_Flags:=0;
  40.     es.es_Title:=@ReqTitle[1];
  41.     es.es_TextFormat:=@ReqBody[1];
  42.     es.es_GadgetFormat:=@ReqGadgets[1];
  43.     
  44.     res:=EasyRequestArgs(IntuitionBase^.ActiveWindow,@es,NIL,NIL);
  45.     
  46.     Write('You clicked on ');
  47.  
  48.     case res of
  49.         0: Writeln('6');
  50.         else Writeln(res);
  51.     end;
  52. end;
  53.  
  54. begin
  55.     OpenLibs;
  56.     DoRequester;
  57.     Cleanup('');
  58. end.